﻿Public Partial Class mitglied_passwort_aendern
    Inherits System.Web.UI.Page
    Private _db As New hc_databaseDataContext

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    End Sub

    Protected Sub b_passwort_aendern_Click(ByVal sender As Object, ByVal e As EventArgs) Handles b_passwort_aendern.Click
        l_passwort_aendern_FEHLER.Text = ""
        l_passwort_neu_FEHLER.Text = ""
        l_passwort_alt_FEHLER.Text = ""
        Dim userid As Integer = Session("userid")
        Dim user = (From it In _db.Mitgliede_Anwaerter _
                    Where it.ID = userid _
                    Select it).Single
        Dim fehlerMeldung = "FEHLER: Das Passwort wurde noch nicht geändert!"
        If (tb_passwort_alt.Text = user.Passwort) Then
            If (tb_passwort_neu1.Text = tb_passwort_neu2.Text) Then
                user.Passwort = tb_passwort_neu2.Text
                _db.SubmitChanges()
            Else
                l_passwort_aendern_FEHLER.Text = fehlerMeldung
                l_passwort_neu_FEHLER.Text = "Die zwei Versionen des neuen Passworts stimmen nicht überein!"
            End If
        Else
            l_passwort_aendern_FEHLER.Text = fehlerMeldung
            l_passwort_alt_FEHLER.Text = "Das Passwort stimmt mit Ihrem jetzigen nicht überein!"
        End If
    End Sub
End Class